home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / rddbase.arc / RDDBASE.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1986-01-29  |  912 b   |  47 lines
  1. Program RdDB3DBF;
  2. Type
  3. Data_Record    = Record
  4.      Delete_Code   :Char;
  5.      Job_Name :Array[1..28] of Char;
  6.      Filler   :Array[1..587] of Char;
  7.      end;
  8.  
  9.  
  10.  
  11. Var
  12.  
  13. DBF_File           :File;
  14. Dbase_Record       :Data_Record;
  15.  
  16. {$i RdDbase.Inc}
  17. Var
  18. I  :Real;
  19. X  :Integer;
  20.  
  21. Begin
  22.  
  23. Open_Dbase_File(Dbf_File,'Customer.dbf');
  24.  
  25. (* Read the first ten dbase record if x = odd update the name field *)
  26.  
  27. For X:= 1 to 10 do
  28.    Begin
  29.    Read_Dbase_Record(Dbf_File,0,Dbase_Record);
  30.    Writeln(Dbase_Record.JOb_Name);
  31.    if Odd(X) then
  32.      begin
  33.      Dbase_Record.Job_Name[28]:='X';
  34.      Rewrite_Dbase_Record(Dbf_File,0,Dbase_Record);
  35.      end;
  36.  end;
  37. (* Read The previous nine records showing the name field updated *)
  38. For X:= 1 to 9 do
  39.  
  40.    Begin
  41.    Read_Previous_Dbase_Record(Dbf_File,1,Dbase_Record);
  42.    Writeln(Dbase_Record.JOb_Name);
  43.  end;
  44.  
  45.  
  46. Close_Dbase_File(DBF_File);
  47.  end.